home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / guile / 1.8 / lang / elisp / primitives / read.scm < prev    next >
Encoding:
Text File  |  2008-12-17  |  251 b   |  11 lines
  1. (define-module (lang elisp primitives read)
  2.   #:use-module (lang elisp internals fset))
  3.  
  4. ;;; MEGA HACK!!!!
  5.  
  6. (fset 'read (lambda (str)
  7.           (cond ((string=? str "?\\M-\\^@")
  8.              -134217728)
  9.             (else
  10.              (with-input-from-string str read)))))
  11.